(defsetf): Use eval-and-compile for self-update-fn.

diff --git a/lisp/cl.el b/lisp/cl.el
index 297ea0b3f1e3cd9b28fbe6efd2d73fc2fe24de5b..db477e1005f7072ab4c40e6f3c41fd96717b4c20 100644 (file)
--- a/lisp/cl.el
+++ b/lisp/cl.el
@@ -1940,8 +1940,9 @@ updating called for."
            (prin1-to-string accessfn)))
   ;; update properties
   (list 'progn
-        (list 'put (list 'quote accessfn)
-              :setf-update-fn (list 'function updatefn))
+       (list 'eval-and-compile
+             (list 'put (list 'quote accessfn)
+                   :setf-update-fn (list 'function updatefn)))
         (list 'put (list 'quote accessfn) :setf-update-doc docstring)
         ;; any better thing to return?
         (list 'quote accessfn)))